home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / gear / cdplayer / cdplayer.exe / UGOKU.TXT < prev    next >
Text File  |  1992-11-15  |  317b  |  18 lines
  1.     on error goto *f
  2.     DIM A%(8)
  3.     DIM D(430)
  4.     D=10 
  5.     E=420
  6.     CD PLAY 2
  7. *A  FOR D=20 TO 430 STEP 10
  8.     CDSTAT A%
  9.     IF A%(1)<>1 GOTO *B
  10.     DSP ON "テキスト26",(D,400)
  11.     NEXT D
  12. *C  FOR E=430 TO 20 STEP -10
  13.     DSP ON "テキスト26",(E,400)
  14.     NEXT E
  15.     GOTO *A
  16. *B  END
  17. *f  resume *b
  18.